home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 3 / Light ROM 3 - Disc 2.iso / programs / amiga / macromkr / ripplean.lzh / SimpleRipple_decrease.fred.pre < prev    next >
Text File  |  1993-10-02  |  868b  |  45 lines
  1. /*  SimpleRipple_decrease.fred.pre
  2.  
  3. ** Clips Exported:
  4. **     FREDPhase   -  Current Phase amount (degrees)
  5. **   FREDPhaseIncrement   -  Phase increment per frame
  6. **     FREDOverrideLength   -  Override Length parameter flag
  7. **                        (if 1, override the Length)
  8.  
  9. ** NOTE: Clip names are case sensitive.
  10. **
  11. ** This script requires FRED v1.2.0 (or higher) to run.  Also required is
  12. ** ADPro v2.0.0 or MorphPlus v1.0.0.
  13. */
  14.  
  15. ADDRESS "ADPro"
  16. OPTIONS RESULTS
  17.  
  18. PARSE ARG NumberOfCells NumberOfFrames
  19.  
  20. NL = '0A'X
  21.  
  22. /*
  23. ** Ensure that at least two frames are to be processed.
  24. */
  25.  
  26. IF (NumberOfFrames < 2) THEN DO
  27.     ADPRO_TO_FRONT
  28.     OKAY1 "Frame count must be more than 2."
  29.     ADPRO_TO_BACK
  30.     EXIT 10
  31. END
  32.  
  33.     PhaseAmount = 360/NumberOfFrames
  34.  
  35.  
  36. /*
  37. ** Update the clips.
  38. */
  39.  
  40. SETCLIP( "FREDPhase", 0 )
  41. SETCLIP( "FREDPhaseIncrement", PhaseAmount )
  42. SETCLIP( "FREDOverrideLength", 0 )
  43.  
  44. EXIT 0
  45.